﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	前台展示文件Index.asp
'	用于展示网站
'	2011.9.3
'	2011.10.26

' Dim aid
' aid=LCase(getDD("aid","index"))
' id=getN("id",1)

'TODO Redirect
' Select Case aid
	' Case "index":vars = "Index"
	' Case "art":vars = "Article"'兼容旧系统,以下都不取消
	' Case "list":vars = "List"
	' Case "link":vars = "Link"
	' Case "guest":vars = "Guest"
	' Case "dis":vars = "Discuss"
	' Case "class":vars = "Class"
	' Case "url":vars = "Url"
	' Case "diss":vars = "Comment"
	' Case "search":vars = "Search"
	' Case "map":vars = "Map"
	' Case "report":vars = "Report"
	' Case "new":vars = "New"
	' Case "bookmark":vars = "Bookmark"
	' Case "style":vars = "Style"
	' Case Else:vars = "Index"
' End Select


Sub main
	Dim aid
	aid=getData("aid")
	If aid="link" Then hu.redirect "link.asp?"&http_query
	
	'首页配置
	If Not IsDate(wapDay) Then wapDay=""'首页倒计时
	If wapFavor<>"1" And wapFavor<>"0" Then wapFavor="1"'首页问候语
	If wapLink<>"1" And wapLink<>"0" Then wapLink="1"'首页链接

	Dim body_
	body_ = ""
	If wapFavor=1 Then body_ = body_ & getFavor() &"<br/>"
	If len(wapDay) > 7 Then body_ = body_ & comUbb("[div=tip]"&getDiff(wapDay,wapDayName)&"[/div]")
	If Len(waplogo) > 7 Then body_ = body_ & "<img src="""&waplogo&""" alt="""&wapTitle&"""/><br/>"
	body_ = body_ & checkMsg()'信息
	body_ = body_ & classPage(0)'首页内容
	If wapLink = 1 Then body_ = body_ & topLink(8,4)'首链
	If wapLastc = 0 Then wapLast=""'底部导航不显示
	hu.title = wapTitle
	hu.keyword = wapTitle
	hu.description = wapTitle
	hu.body = body_
End Sub

%>